home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / game_cga / questzor / quest.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-08-04  |  25.7 KB  |  578 lines
  1. 0  CLS:LINE INPUT"Make sure CapsLock is active:";A$
  2. 1  REM Secret Quest 2010
  3. 2  REM By Eric Iwasaki
  4. 3  REM 107 Via Pasqual
  5. 4  REM Redondo Beach, CA 90277
  6. 5  REM All graphics created on DrawPlus
  7. 6  REM and then were converted into
  8. 7  REM smaller images to conserve memory
  9. 9  DIM SCR(1240)
  10. 10  ROOM=1
  11. 11  DISK=0
  12. 12  LAMP=0
  13. 13  FOOD=0
  14. 14  CODE=0
  15. 15  ROOMMATE=0
  16. 16  GUN=0
  17. 17  BATTERY=0
  18. 18  BRIDGE=0
  19. 19  SABER=0
  20. 20  CARD=0
  21. 30  SCREEN 1:CLS
  22. 40  BLOAD"title.pic"
  23. 50  KEY OFF:LOCATE 25,1:PRINT"             Hit any key>";:LOCATE 1,1
  24. 51  A$=INKEY$:IF A$="" THEN 51
  25. 60  CLS
  26. 70  INPUT"Do you want instructions";A$
  27. 80  IF LEFT$(A$,1)="Y" OR LEFT$(A$,1)="y" THEN 90
  28. 85  GOTO 191
  29. 90  CLS
  30. 110  PRINT"     You and your roommate have been "
  31. 120  PRINT" traveling through space for several "
  32. 130  PRINT" years on a cruise to planet Espion and"
  33. 140  PRINT" back to planet Earth."
  34. 150  PRINT"     Your cruise is now almost over and"
  35. 160  PRINT" your ship, the Voyager, is now orbiting";
  36. 170  PRINT" the Earth.  Right now you and your room";
  37. 180  PRINT" mate are fast asleep..."
  38. 181  PRINT"     All commands are given in 1 or 2"
  39. 182  PRINT" word format.  To list all of the "
  40. 183  PRINT" commands, type HELP.  Also, type LOOK"
  41. 184  PRINT" in each room because sometimes it gives";
  42. 185  PRINT" important hints required for survival.":PRINT" HINT: Use it everytime you enter the":PRINT" Tractor Beam Power Core!"
  43. 186  PRINT"     At the UPPER-RIGHT corner of the"
  44. 187  PRINT" screen, the visible and usable objects"
  45. 188  PRINT" are listed.  You can USE usable objects";
  46. 189  PRINT" and you can GET visible objects.":PRINT" Be sure to look at them after you LOOK":PRINT" in a room or KILL a creature."
  47. 190  PRINT" To exit the ship, use the Transporter.":PRINT:LINE INPUT"              Hit <Return>";A$
  48. 191  CLS
  49. 192  BLOAD"quarters.pic",VARPTR(SCR(0))
  50. 193  PUT(8,8),SCR,PRESET:LOCATE 16,1:PRINT"     You suddenly wake up.  You hear"
  51. 194  PLAY"MBT250O5L64AAAAAAGGGFFEC":PRINT" a scream and then a door open.":PRINT
  52. 195  LINE INPUT" What's your roommate's name>";ROOMMATE$
  53. 196  PLAY"O0CC":PUT(8,8),SCR,PSET
  54. 197  PRINT:PRINT" You turn on the lights and realize that";
  55. 198  PRINT" ";ROOMMATE$;" is gone!":FOR I=1 TO 2000:NEXT I
  56. 199  LINE(0,15*8)-(319,200),0,BF:LOOK=1:ROOM=1:GOTO 203
  57. 200  LOOK=1:ROOM=1:BLOAD"QUARTERS.PIC",VARPTR(SCR(0))
  58. 201  PUT(8,8),SCR,PSET
  59. 203  LOCATE 16,1:PRINT"     You are in your quarters.  There is";
  60. 204  PRINT" an exit to the north."
  61. 210  IF DISK=0 AND LOOK=0 THEN LOCATE 5,26:PRINT"Coordinate Disk"
  62. 211  IF DISK=1 THEN LOCATE 5,26:PRINT"               "
  63. 220  GOSUB 10000
  64. 230  IF LEFT$(COMMAND$,2)="LO" AND DISK=1 THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  65. 231  IF LEFT$(COMMAND$,2)="LO" AND DISK=0 THEN LOOK=0:LOCATE 21,2:PRINT" You spot a disk on the computer."
  66. 239  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 299
  67. 240  IF LEFT$(COMMAND$,1)="N" THEN 300
  68. 241  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  69. 299  GOTO 210
  70. 300  LOOK=1:ROOM=2:BLOAD"ENDHALL.PIC",VARPTR(SCR(0)):CLS
  71. 301  PUT(8,8),SCR,PSET
  72. 303  LOCATE 16,1:PRINT"     You are at the end of a short hall-";
  73. 304  PRINT" way.  There are exits to the north end"
  74. 305  PRINT" and the south end of the hall."
  75. 310  REM
  76. 320  GOSUB 10000
  77. 330  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT"There's a sign that reads`Ship Central'";
  78. 339  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 399
  79. 340  IF LEFT$(COMMAND$,1)="N" THEN 400
  80. 341  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  81. 342  IF LEFT$(COMMAND$,1)="S" THEN CLS:GOTO 200
  82. 399  GOTO 310
  83. 400  LOOK=1:ROOM=3:BLOAD"CENTER1.PIC",VARPTR(SCR(0)):CLS
  84. 401  PUT(8,8),SCR,PSET
  85. 403  LOCATE 16,1:PRINT"     You are at the center of the cruise";
  86. 404  PRINT" ship.  In the center of the room lies"
  87. 405  PRINT" an elevator.  An exit is to the south.";
  88. 410  LOCATE 11,26:PRINT"Elevator"
  89. 420  GOSUB 10000
  90. 430  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT"There's a sign that reads`Level 1'";
  91. 439  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 499
  92. 440  IF LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  93. 441  IF LEFT$(COMMAND$,1)="S" THEN GOTO 300
  94. 499  GOTO 410
  95. 500  LOOK=1:ROOM=4:BLOAD"CENTER2.PIC",VARPTR(SCR(0)):CLS
  96. 501  PUT(8,8),SCR,PSET
  97. 503  LOCATE 16,1:PRINT"     You are at the center of the cruise";
  98. 504  PRINT" ship.  In the center of the room lies"
  99. 505  PRINT" an elevator.  Exits to the N,W, and E.";
  100. 510  LOCATE 11,26:PRINT"Elevator"
  101. 520  GOSUB 10000
  102. 530  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT"There's a sign that reads`Level 2'";
  103. 539  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 599
  104. 540  IF LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" OR LEFT$(COMMAND$,1)="S" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  105. 541  IF LEFT$(COMMAND$,1)="W" THEN GOTO 2300
  106. 542  IF LEFT$(COMMAND$,1)="E" THEN GOTO 600
  107. 543  IF LEFT$(COMMAND$,1)="N" THEN GOTO 700
  108. 599  GOTO 510
  109. 600  LOOK=1:ROOM=5:BLOAD"DININGRM.PIC",VARPTR(SCR(0)):CLS
  110. 601  PUT(8,8),SCR,PSET
  111. 603  LOCATE 16,1:PRINT"     You are in the dining room.  There"
  112. 604  PRINT" is food on a rack.  The only exit is to";
  113. 605  PRINT" the west."
  114. 610  IF FOOD=0 THEN LOCATE 5,26:PRINT"Food"
  115. 611  IF FOOD=1 THEN LOCATE 5,26:PRINT"               "
  116. 620  GOSUB 10000
  117. 630  IF LEFT$(COMMAND$,2)="LO" AND FOOD>0 THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  118. 631  IF LEFT$(COMMAND$,2)="LO" AND FOOD=0 THEN LOOK=0:LOCATE 21,2:PRINT" There is some food here."
  119. 639  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 699
  120. 640  IF LEFT$(COMMAND$,1)="W" THEN 500
  121. 641  IF LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  122. 699  GOTO 610
  123. 700  LOOK=1:ROOM=6:BLOAD"BATHROOM.PIC",VARPTR(SCR(0)):CLS
  124. 701  PUT(8,8),SCR,PSET
  125. 703  LOCATE 16,1:PRINT"     You are in the ship's rest room."
  126. 704  PRINT" There is a toilet in this room.  There"
  127. 705  PRINT" is an exit to the south."
  128. 710  LOCATE 11,26:PRINT"Toilet"
  129. 720  GOSUB 10000
  130. 730  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" There is toilet here."
  131. 739  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 799
  132. 740  IF LEFT$(COMMAND$,1)="S" THEN 500
  133. 741  IF LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  134. 799  GOTO 710
  135. 800  LOOK=1:ROOM=7:BLOAD"CENTER3.PIC",VARPTR(SCR(0)):CLS
  136. 801  PUT(8,8),SCR,PSET
  137. 803  LOCATE 16,1:PRINT"     You are at the center of the cruise";
  138. 804  PRINT" ship.  In the center of the room lies"
  139. 805  PRINT" an elevator.  Exits in all directions.";
  140. 810  LOCATE 11,26:PRINT"Elevator"
  141. 820  GOSUB 10000
  142. 830  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT"There's a sign that reads`Level 3'";
  143. 839  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 899
  144. 840  IF LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  145. 841  IF LEFT$(COMMAND$,1)="W" THEN GOTO 2000
  146. 842  IF LEFT$(COMMAND$,1)="E" THEN GOTO 900
  147. 843  IF LEFT$(COMMAND$,1)="S" THEN GOTO 1000
  148. 844  IF LEFT$(COMMAND$,1)="N" THEN GOTO 1200
  149. 899  GOTO 810
  150. 900  LOOK=1:ROOM=8:BLOAD"WEAPONRM.PIC",VARPTR(SCR(0)):CLS
  151. 901  PUT(8,8),SCR,PSET
  152. 903  LOCATE 16,1:PRINT"     You are in the weapon room.  There"
  153. 904  PRINT" are machine guns behind a force field."
  154. 905  PRINT" The exit is to the west."
  155. 910  IF GUN=0 AND LOOK=0 THEN LOCATE 5,26:PRINT"Laser Gun"
  156. 911  IF GUN=1 THEN LOCATE 5,26:PRINT"               "
  157. 920  GOSUB 10000
  158. 930  IF LEFT$(COMMAND$,2)="LO" AND GUN=1 THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  159. 931  IF LEFT$(COMMAND$,2)="LO" AND GUN=0 THEN LOOK=0:LOCATE 21,2:PRINT" There is a gun attached to the table!"
  160. 939  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 999
  161. 940  IF LEFT$(COMMAND$,1)="W" THEN 800
  162. 941  IF LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  163. 999  GOTO 910
  164. 1000  LOOK=1:ROOM=9:BLOAD"ENGINERM.PIC",VARPTR(SCR(0)):CLS
  165. 1001  PUT(8,8),SCR,PSET
  166. 1003  LOCATE 16,1:PRINT"     You are in the engine room.  You"
  167. 1004  PRINT" can see the Reactor to the south and"
  168. 1005  PRINT" an exit to the north."
  169. 1010  IF BATTERY=0 THEN LOCATE 5,26:PRINT"Battery"
  170. 1011  IF BATTERY=1 THEN LOCATE 5,26:PRINT"               "
  171. 1020  GOSUB 10000
  172. 1031  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" The Reactor is to the south."
  173. 1039  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1099
  174. 1040  IF LEFT$(COMMAND$,1)="N" THEN 800
  175. 1041  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  176. 1042  IF LEFT$(COMMAND$,1)="S" THEN 1100
  177. 1099  GOTO 1010
  178. 1100  LOOK=1:ROOM=10:BLOAD"REACTOR.PIC",VARPTR(SCR(0)):CLS
  179. 1101  PUT(8,8),SCR,PSET
  180. 1110  LOCATE 16,1:PRINT"     You are so stupid!  Don't you know"
  181. 1120  PRINT" that the reactors are too hot for"
  182. 1130  PRINT" humans to survive in!!"
  183. 1131  PRINT" ***You have DIED!***"
  184. 1140  PRINT:INPUT" Play again (Y/N)";A$
  185. 1150  IF A$="N" THEN CLS:END
  186. 1151  IF A$="Y" THEN CLS:RUN
  187. 1160  GOTO 1140
  188. 1200  LOOK=1:ROOM=11:BLOAD"HALLWAY.PIC",VARPTR(SCR(0)):CLS
  189. 1201  PUT(8,8),SCR,PSET
  190. 1203  LOCATE 16,1:PRINT"     You are in a long hallway.  There"
  191. 1204  PRINT" is an exit to the south and the hall"
  192. 1205  PRINT" continues to the north."
  193. 1210  REM
  194. 1220  GOSUB 10000
  195. 1230  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  196. 1239  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1299
  197. 1240  IF LEFT$(COMMAND$,1)="N" THEN 1300
  198. 1241  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  199. 1242  IF LEFT$(COMMAND$,1)="S" THEN 800
  200. 1299  GOTO 1210
  201. 1300  LOOK=1:ROOM=12:BLOAD"HALLWAY.PIC",VARPTR(SCR(0)):CLS
  202. 1301  PUT(8,8),SCR,PSET
  203. 1303  LOCATE 16,1:PRINT"     You are in a long hallway.  The"
  204. 1304  PRINT" hall continues to both the north and "
  205. 1305  PRINT" the south."
  206. 1310  REM
  207. 1320  GOSUB 10000
  208. 1330  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  209. 1339  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1399
  210. 1340  IF LEFT$(COMMAND$,1)="N" THEN 1400
  211. 1341  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  212. 1342  IF LEFT$(COMMAND$,1)="S" THEN 1200
  213. 1399  GOTO 1310
  214. 1400  LOOK=1:ROOM=13:IF DEAD=0 THEN BLOAD"HALLWAY1.PIC",VARPTR(SCR(0)):CLS
  215. 1401  LOOK=1:ROOM=13:IF DEAD>0 THEN BLOAD"dead1.PIC",VARPTR(SCR(0)):CLS
  216. 1402  SMOVE=MOVE:PUT(8,8),SCR,PSET
  217. 1403  LOCATE 16,1:PRINT"     You are in a long hallway.  A"
  218. 1404  IF DEAD=0 THEN PRINT" guard stands here.  Stairs go down and"
  219. 1405  IF DEAD>0 THEN PRINT" guard lies here.  Stairs go down and"
  220. 1406  PRINT" the hall leads to the N and S."
  221. 1410  IF DEAD=>1 AND BRIDGE=0 THEN LOCATE 5,26:PRINT"Key"
  222. 1411  IF DEAD=>1 AND BRIDGE=1 THEN LOCATE 5,26:PRINT"               "
  223. 1420  GOSUB 10000
  224. 1430  IF LEFT$(COMMAND$,2)="LO" AND BRIDGE=0 THEN LOOK=0:LOCATE 21,2:PRINT" The guard has a key."
  225. 1431  IF LEFT$(COMMAND$,2)="LO" AND BRIDGE=1 THEN LOOK=0:LOCATE 21,2:PRINT" There is a dead guard here."
  226. 1439  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1499
  227. 1440  IF LEFT$(COMMAND$,1)="S" THEN 1300
  228. 1441  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  229. 1442  IF DEAD>0 AND LEFT$(COMMAND$,1)="N" THEN 1600
  230. 1443  IF DEAD>0 AND LEFT$(COMMAND$,1)="D" THEN 1500
  231. 1499  GOTO 1410
  232. 1500  LOOK=1:ROOM=14:BLOAD"SUPPLYRM.PIC",VARPTR(SCR(0)):CLS
  233. 1501  PUT(8,8),SCR,PSET
  234. 1503  LOCATE 16,1:PRINT"     You are in a supply room.  The"
  235. 1504  PRINT" stair case leads up.  There are no "
  236. 1505  PRINT" other exits."
  237. 1510  IF LAMP=0 THEN LOCATE 5,26:PRINT"Lamp"
  238. 1511  IF LAMP=1 THEN LOCATE 5,26:PRINT"               "
  239. 1520  GOSUB 10000
  240. 1530  IF LEFT$(COMMAND$,2)="LO" AND LAMP=0 THEN LOOK=0:LOCATE 21,2:PRINT" There is a lamp here."
  241. 1531  IF LEFT$(COMMAND$,2)="LO" AND LAMP=1 THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  242. 1539  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1599
  243. 1540  IF LEFT$(COMMAND$,1)="U" THEN 1400
  244. 1541  IF LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  245. 1599  GOTO 1510
  246. 1600  LOOK=1:ROOM=15:BLOAD"HALLWAY.PIC",VARPTR(SCR(0)):CLS
  247. 1601  PUT(8,8),SCR,PSET
  248. 1603  LOCATE 16,1:PRINT"     You are in a long hallway.  The"
  249. 1604  PRINT" hall continues to both the north and "
  250. 1605  PRINT" the south."
  251. 1610  REM
  252. 1620  GOSUB 10000
  253. 1630  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  254. 1639  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1699
  255. 1640  IF LEFT$(COMMAND$,1)="N" THEN 1700
  256. 1641  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  257. 1642  IF LEFT$(COMMAND$,1)="S" THEN 1400
  258. 1699  GOTO 1610
  259. 1700  LOOK=1:ROOM=16:BLOAD"ENDHALL3.PIC",VARPTR(SCR(0)):CLS
  260. 1701  PUT(8,8),SCR,PSET
  261. 1703  LOCATE 16,1:PRINT"     You are in a long hallway.  The"
  262. 1704  PRINT" hall continues to the south and an exit";
  263. 1705  PRINT" is to the north."
  264. 1710  REM
  265. 1720  GOSUB 10000
  266. 1730  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" There is a diagram of the ship."
  267. 1739  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1799
  268. 1740  IF LEFT$(COMMAND$,1)="N" THEN 1800
  269. 1741  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  270. 1742  IF LEFT$(COMMAND$,1)="S" THEN 1600
  271. 1799  GOTO 1710
  272. 1800  LOOK=1:ROOM=17:IF DEAD=1 THEN BLOAD"FRONTEND.PIC",VARPTR(SCR(0)):CLS
  273. 1801  LOOK=1:ROOM=17:IF DEAD>=2 THEN BLOAD"DEAD2.PIC",VARPTR(SCR(0)):CLS
  274. 1802  SMOVE=MOVE:PUT(8,8),SCR,PSET
  275. 1803  LOCATE 16,1:PRINT"     You are at the front of the space"
  276. 1804  IF DEAD=1 THEN PRINT" cruiser.  A guard stands here.  Stairs"
  277. 1805  IF DEAD>1 THEN PRINT" cruiser.  A guard lies here.  Stairs"
  278. 1806  PRINT" go up.  An exit is to the south."
  279. 1810  IF DEAD=2 AND SABER=0 THEN LOCATE 5,26:PRINT"Light Saber"
  280. 1811  IF DEAD=2 AND SABER=1 THEN LOCATE 5,26:PRINT"               "
  281. 1820  GOSUB 10000
  282. 1830  IF LEFT$(COMMAND$,2)="LO" AND SABER=0 THEN LOOK=0:LOCATE 21,2:PRINT" The guard has a light saber."
  283. 1831  IF LEFT$(COMMAND$,2)="LO" AND SABER=1 THEN LOOK=0:LOCATE 21,2:PRINT" There is a dead guard here."
  284. 1839  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1899
  285. 1840  IF LEFT$(COMMAND$,1)="S" THEN 1700
  286. 1841  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  287. 1842  IF DEAD>=2 AND BRIDGE=1 AND LEFT$(COMMAND$,1)="U" THEN 1900
  288. 1843  IF DEAD>=2 AND BRIDGE=0 AND LEFT$(COMMAND$,1)="U" THEN LOCATE 21,2:PRINT"You need a key."
  289. 1899  GOTO 1810
  290. 1900  LOOK=1:ROOM=18:BLOAD"BRIDGE.PIC",VARPTR(SCR(0)):CLS
  291. 1901  PUT(8,8),SCR,PSET
  292. 1903  LOCATE 16,1:PRINT"     You are on the bridge of the space"
  293. 1904  PRINT" cruiser.  The captain sits in his chair";
  294. 1905  PRINT" and the stairs go down."
  295. 1910  IF CARD=0 THEN LOCATE 5,26:PRINT"Card"
  296. 1911  IF CARD=1 THEN LOCATE 5,26:PRINT"               "
  297. 1920  GOSUB 10000
  298. 1930  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" The captain is in his chair."
  299. 1939  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 1999
  300. 1940  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="S" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  301. 1942  IF LEFT$(COMMAND$,1)="D" THEN 1800
  302. 1999  GOTO 1910
  303. 2000  LOOK=1:ROOM=19:BLOAD"TRACTOR.PIC",VARPTR(SCR(0)):CLS
  304. 2002  SMOVE=MOVE:PUT(8,8),SCR,PSET
  305. 2003  LOCATE 16,1:PRINT"     You are in the tractor beam power "
  306. 2004  PRINT" core.  There is an exit to the east"
  307. 2005  PRINT" and a ladder leads down."
  308. 2010  REM
  309. 2020  GOSUB 10000
  310. 2030  IF LEFT$(COMMAND$,2)="LO" AND BATTERY=1 AND GUN=1 THEN LOOK=0:LOCATE 21,2:PRINT"You notice your gun and battery move.":GOTO 2039
  311. 2031  IF LEFT$(COMMAND$,2)="LO" AND BATTERY=0 AND GUN=1 THEN LOOK=0:LOCATE 21,2:PRINT"You notice your gun move.":GOTO 2039
  312. 2032  IF LEFT$(COMMAND$,2)="LO" AND BATTERY=1 AND GUN=0 THEN LOOK=0:LOCATE 21,2:PRINT"You notice your battery move.":GOTO 2039
  313. 2039  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 2099
  314. 2040  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="U" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  315. 2041  IF LEFT$(COMMAND$,1)="D" AND GUN=1 THEN 63000
  316. 2042  IF LEFT$(COMMAND$,1)="D" AND BATTERY=1 THEN 63000
  317. 2043  IF LEFT$(COMMAND$,1)="E" THEN 800
  318. 2044  IF LEFT$(COMMAND$,1)="D" AND GUN=0 AND BATTERY=0 THEN 2100
  319. 2099  GOTO 2010
  320. 2100  LOOK=1:ROOM=20:IF OPN=0 THEN BLOAD"CARDLOCK.PIC",VARPTR(SCR(0)):CLS
  321. 2101  LOOK=1:ROOM=20:IF OPN>0 THEN BLOAD"CARDOPEN.PIC",VARPTR(SCR(0)):CLS
  322. 2102  SMOVE=MOVE:PUT(8,8),SCR,PSET
  323. 2103  LOCATE 16,1:PRINT"     You are in a fairly big room.  A"
  324. 2104  IF OPN=0 THEN PRINT" locked door is to the east.  A ladder"
  325. 2105  IF OPN>0 THEN PRINT" door lies to the east.  A ladder"
  326. 2106  PRINT" leads to the tractor beam room."
  327. 2110  IF OPN=0 AND CARD=1 THEN LOCATE 11,26:PRINT"Card"
  328. 2111  IF OPN>0 THEN LOCATE 11,26:PRINT"    "
  329. 2120  GOSUB 10000
  330. 2130  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" You notice a slot by the door."
  331. 2139  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 2199
  332. 2140  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  333. 2141  IF LEFT$(COMMAND$,1)="E" AND OPN=0 THEN BEEP:LOCATE 21,2:PRINT"The door is locked."
  334. 2142  IF LEFT$(COMMAND$,1)="E" AND OPN>0 AND LAMP=1 THEN 2200
  335. 2143  IF LEFT$(COMMAND$,1)="U" THEN 2000
  336. 2144  IF LEFT$(COMMAND$,1)="E" AND OPN>0 AND LAMP=1 THEN 58000
  337. 2199  GOTO 2110
  338. 2200  LOOK=1:ROOM=21:IF DEAD=2 THEN BLOAD"ALIENRM.PIC",VARPTR(SCR(0)):CLS
  339. 2201  LOOK=1:ROOM=21:IF DEAD=>3 AND OPN<2 THEN BLOAD"DEAD3.PIC",VARPTR(SCR(0)):CLS
  340. 2202  LOOK=1:ROOM=21:IF DEAD=>3 AND OPN>1 THEN BLOAD"FREEMATE.PIC",VARPTR(SCR(0)):CLS
  341. 2203  SMOVE=MOVE:PUT(8,8),SCR,PSET
  342. 2204  LOCATE 16,1:PRINT"     You are in a fairly big room.  A"
  343. 2205  IF OPN=1 THEN PRINT" locked cell is to the east.  An open"
  344. 2206  IF OPN>1 THEN PRINT" cell lies to the east.  An open"
  345. 2207  PRINT" door leads to the west."
  346. 2208  IF DEAD<3 THEN PRINT" THE ALIEN IS HERE!"
  347. 2209  IF DEAD=3 THEN PRINT" The alien is DEAD!"
  348. 2210  IF DEAD=3 AND OPN<2 THEN LOCATE 11,26:PRINT"Button"
  349. 2211  IF DEAD=3 AND OPN>1 THEN LOCATE 11,26:PRINT"      "
  350. 2212  IF DEAD=3 AND CODE=0 THEN LOCATE 5,26:PRINT"Access Code"
  351. 2213  IF DEAD=3 AND CODE=1 THEN LOCATE 5,26:PRINT"               "
  352. 2214  IF DEAD=3 AND ROOMMATE=0 AND OPN>1 THEN LOCATE 6,26:PRINT"Roommate"
  353. 2215  IF DEAD=3 AND ROOMMATE=1 AND OPN>1 THEN LOCATE 6,26:PRINT"               "
  354. 2220  GOSUB 10000
  355. 2230  IF LEFT$(COMMAND$,2)="LO" AND OPN<2 THEN LOOK=0:LOCATE 21,2:PRINT" You notice a button on the wall."
  356. 2239  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 2299
  357. 2240  IF LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="D" OR LEFT$(COMMAND$,1)="U" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  358. 2242  IF LEFT$(COMMAND$,1)="W" THEN 2100
  359. 2299  GOTO 2210
  360. 2300  LOOK=1:ROOM=22:BLOAD"SPACEWAY.PIC",VARPTR(SCR(0)):CLS
  361. 2301  PUT(8,8),SCR,PSET
  362. 2303  LOCATE 16,1:PRINT"     You are in a short hallway.  There"
  363. 2304  PRINT" is an exit to the east and the hall"
  364. 2305  PRINT" continues to the north."
  365. 2310  REM
  366. 2320  GOSUB 10000
  367. 2330  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  368. 2339  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 2399
  369. 2340  IF LEFT$(COMMAND$,1)="N" THEN 2400
  370. 2341  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  371. 2342  IF LEFT$(COMMAND$,1)="E" THEN 500
  372. 2399  GOTO 2310
  373. 2400  LOOK=1:ROOM=23:BLOAD"ENDHALL2.PIC",VARPTR(SCR(0)):CLS
  374. 2401  PUT(8,8),SCR,PSET
  375. 2403  LOCATE 16,1:PRINT"     You are in a short hallway.  There"
  376. 2404  PRINT" is an exit to the north and the hall"
  377. 2405  PRINT" continues to the south."
  378. 2410  REM
  379. 2420  GOSUB 10000
  380. 2430  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" There is nothing here."
  381. 2439  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 2499
  382. 2440  IF LEFT$(COMMAND$,1)="N" THEN 2500
  383. 2441  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  384. 2442  IF LEFT$(COMMAND$,1)="S" THEN 2300
  385. 2499  GOTO 2410
  386. 2500  LOOK=1:ROOM=24:BLOAD"TRANSPOR.PIC",VARPTR(SCR(0)):CLS
  387. 2501  PUT(8,8),SCR,PSET
  388. 2503  LOCATE 16,1:PRINT"     You are in the ships molecular"
  389. 2504  PRINT" transportation room.  The only exit"
  390. 2505  PRINT" is to the south."
  391. 2510  LOCATE 11,26:PRINT"Transporter"
  392. 2520  GOSUB 10000
  393. 2530  IF LEFT$(COMMAND$,2)="LO" THEN LOOK=0:LOCATE 21,2:PRINT" The transporter is here."
  394. 2539  IF LEFT$(COMMAND$,3)="EAT" OR LEFT$(COMMAND$,3)="DRO" OR LEFT$(COMMAND$,3)="USE" THEN 2599
  395. 2540  IF LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" THEN BEEP:LOCATE 21,2:PRINT"You can't go that way."
  396. 2541  IF LEFT$(COMMAND$,1)="S" THEN 2400
  397. 2599  GOTO 2510
  398. 9999  END
  399. 10000  MOVE=MOVE+1:LOCATE 20,2:PRINT">";COMMAND$
  400. 10001  LOCATE 3,26:PRINT"Visible Objects"
  401. 10002  LOCATE 9,26:PRINT"Usable Objects"
  402. 10007  IF DEAD>=2 AND DEAD<3 AND ROOM=21 AND SMOVE<MOVE+1 THEN 61100
  403. 10008  IF DEAD=0 AND ROOM=13 AND SMOVE<MOVE+1 THEN 61000
  404. 10009  IF DEAD>=1 AND DEAD<2 AND ROOM=17 AND SMOVE<MOVE+1 THEN 61000
  405. 10010  LOCATE 23,2:LINE INPUT">";COMMAND$:LOCATE 21,2
  406. 10011  LOCATE 20,3:PRINT"                                     ";
  407. 10012  LOCATE 20,2:PRINT">";COMMAND$
  408. 10013  LOCATE 21,2:PRINT"                                       ";
  409. 10014  LOCATE 23,3:PRINT"                                     ";
  410. 10020  IF LEFT$(COMMAND$,3)="GET" THEN 11000
  411. 10021  IF LEFT$(COMMAND$,3)="EAT" THEN 11500
  412. 10030  IF LEFT$(COMMAND$,3)="DRO" THEN 11100
  413. 10040  IF LEFT$(COMMAND$,3)="USE" THEN 11200
  414. 10050  IF LEFT$(COMMAND$,3)="KIL" THEN 11300
  415. 10060  IF LEFT$(COMMAND$,1)="I" THEN 11400
  416. 10061  IF LEFT$(COMMAND$,3)="QUI" THEN CLS:END
  417. 10070  IF LEFT$(COMMAND$,3)="ASS" THEN LOCATE 21,2:PRINT"Such horrible language!":RETURN
  418. 10075  IF COMMAND$="HELP" THEN 50000
  419. 10080  IF COMMAND$="FUCK "+ROOMMATE$ AND ROOMMATE=1 THEN LOCATE 21,2:PRINT"Uh! Uh! That feels so good!":RETURN
  420. 10090  IF COMMAND$="FUCK YOU" THEN LOCATE 21,2:PRINT"Same to you ASSHOLE!":RETURN
  421. 10100  IF COMMAND$="FUCK YOU ASSHOLE" THEN LOCATE 21,2:PRINT"You're not the Terminator!":RETURN
  422. 10110  IF COMMAND$="FART" THEN LOCATE 21,2:PRINT"Ahhhhh! That smells!":RETURN
  423. 10120  IF COMMAND$="BURP" THEN LOCATE 21,2:PRINT"Belch!":RETURN
  424. 10130  IF COMMAND$="HI" THEN LOCATE 21,2:PRINT"Buy Reflex Point! (Disk 487) By E.I.":RETURN
  425. 10131  IF COMMAND$="FUCK "+ROOMMATE$ AND ROOMMATE=0 THEN LOCATE 21,2:PRINT"You don't have "+ROOMMATE$+" yet.":RETURN
  426. 10132  IF COMMAND$="KISS "+ROOMMATE$ AND ROOMMATE=1 THEN LOCATE 21,2:PRINT"You give ";ROOMMATE$;" a kiss.":RETURN
  427. 10133  IF COMMAND$="KISS "+ROOMMATE$ AND ROOMMATE=0 THEN LOCATE 21,2:PRINT"You don't have "+ROOMMATE$+" yet.":RETURN
  428. 10134  IF LEFT$(COMMAND$,4)="FUCK" THEN LOCATE 21,2:PRINT"Wash your mouth out with soap!":RETURN
  429. 10140  IF LEFT$(COMMAND$,6)="PC-SIG" THEN LOCATE 21,2:PRINT"Great public domain software!":RETURN
  430. 10150  IF LEFT$(COMMAND$,1)="W" OR LEFT$(COMMAND$,1)="E" OR LEFT$(COMMAND$,1)="S" OR LEFT$(COMMAND$,1)="U" OR LEFT$(COMMAND$,1)="D" OR LEFT$(COMMAND$,1)="N" OR LEFT$(COMMAND$,2)="LO" THEN RETURN
  431. 10999  BEEP:LOCATE 21,2:PRINT"What?":RETURN
  432. 11000  IF RIGHT$(COMMAND$,2)="SK" AND DISK=0 AND ROOM=1 THEN DISK=1:LOCATE 21,2:PRINT"You got the disk.":RETURN
  433. 11010  IF RIGHT$(COMMAND$,2)="MP" AND LAMP=0 AND ROOM=14 THEN LAMP=1:LOCATE 21,2:PRINT"You got the lamp.":RETURN
  434. 11020  IF RIGHT$(COMMAND$,2)="OD" AND FOOD=0 AND ROOM=5 THEN FOOD=1:LOCATE 21,2:PRINT"You got the food.":RETURN
  435. 11030  IF RIGHT$(COMMAND$,2)="DE" AND CODE=0 AND ROOM=21 THEN CODE=1:LOCATE 21,2:PRINT"You got the access code.":RETURN
  436. 11040  IF RIGHT$(COMMAND$,2)="TE" AND ROOMMATE=0 AND ROOM=21 AND DEAD=3 AND OPN>1 THEN ROOMMATE=1:LOCATE 21,2:PRINT"You have rescued ";ROOMMATE$;".":RETURN
  437. 11050  IF RIGHT$(COMMAND$,2)="UN" AND GUN=0 AND ROOM=8 AND EATEN=1 THEN GUN=1:LOCATE 21,2:PRINT"With a hard pull, you remove the gun.":RETURN
  438. 11051  IF RIGHT$(COMMAND$,2)="UN" AND GUN=0 AND ROOM=8 AND EATEN=0 THEN LOCATE 21,2:PRINT"You're not strong enough to get it.":RETURN
  439. 11060  IF RIGHT$(COMMAND$,2)="RY" AND BATTERY=0 AND ROOM=9 THEN BATTERY=1:LOCATE 21,2:PRINT"You got the battery.":RETURN
  440. 11070  IF RIGHT$(COMMAND$,2)="EY" AND BRIDGE=0 AND ROOM=13 AND DEAD=>1 THEN BRIDGE=1:LOCATE 21,2:PRINT"You got the bridge key.":RETURN
  441. 11080  IF RIGHT$(COMMAND$,3)="BER" AND SABER=0 AND ROOM=17 AND DEAD=>2 THEN SABER=1:LOCATE 21,2:PRINT"You got the light saber.":RETURN
  442. 11090  IF RIGHT$(COMMAND$,3)="ARD" AND CARD=0 AND ROOM=18 THEN CARD=1:LOCATE 21,2:PRINT"You got the cardlock card.":RETURN
  443. 11099  LOCATE 21,2:BEEP:PRINT"I don't see that here.":RETURN
  444. 11100  IF RIGHT$(COMMAND$,2)="RY" AND BATTERY=1 THEN BATTERY=0:LOCATE 21,2:PRINT"You've dropped the battery.":RETURN
  445. 11110  IF RIGHT$(COMMAND$,2)="UN" AND GUN=1 THEN GUN=0:LOCATE 21,2:PRINT"You've dropped the laser gun.":RETURN
  446. 11199  LOCATE 21,2:BEEP:PRINT"You can't drop that.":RETURN
  447. 11200  IF RIGHT$(COMMAND$,2)="ER" AND ROOM=24 AND DISK=1 AND CODE=1 AND NEEDTOGO=0 THEN CLS:GOTO 59000
  448. 11201  IF RIGHT$(COMMAND$,2)="ER" AND ROOM=24 AND DISK=0 AND CODE=1 AND NEEDTOGO=0 THEN CLS:GOTO 57000
  449. 11202  IF RIGHT$(COMMAND$,2)="ER" AND ROOM=24 AND DISK=1 AND CODE=1 AND NEEDTOGO=1 THEN CLS:GOTO 56000
  450. 11210  IF RIGHT$(COMMAND$,2)="OR" AND ROOM=3 OR ROOM=4 OR ROOM=7 THEN CLS:GOTO 60000
  451. 11220  IF RIGHT$(COMMAND$,2)="ET" AND ROOM=6 AND NEEDTOGO=1 THEN LOCATE 21,2:PRINT"Ahhhhh!":NEEDTOGO=0:RETURN
  452. 11230  IF RIGHT$(COMMAND$,2)="RD" AND ROOM=20 AND CARD=1 THEN CARD=0:OPN=1:GOTO 2100
  453. 11240  IF RIGHT$(COMMAND$,2)="ON" AND ROOM=21 AND DEAD=3 AND OPN<2 THEN OPN=2:GOTO 2200
  454. 11299  BEEP:LOCATE 21,2:PRINT"You can't use that, at least not now!":RETURN
  455. 11300  IF GUN=1 AND BATTERY=1 THEN PLAY"T250O2L64BAAGGFFEEDDC"
  456. 11301  IF GUN=1 AND BATTERY=1 AND RIGHT$(COMMAND$,2)="RD" AND ROOM=13 AND DEAD=0 THEN DEAD=1:GOTO 1400
  457. 11302  IF GUN=1 AND BATTERY=0 AND RIGHT$(COMMAND$,2)="RD" AND ROOM=13 AND DEAD=0 THEN LOCATE 21,2:PLAY"O1CC":PRINT"Your gun doesn't work!":RETURN
  458. 11310  IF GUN=1 AND BATTERY=1 AND RIGHT$(COMMAND$,2)="RD" AND ROOM=17 AND DEAD=1 THEN DEAD=1.5:LOCATE 21,2:PRINT"You hit him!":FOR I=1 TO 1000:NEXT I:RETURN
  459. 11311  IF GUN=1 AND BATTERY=0 AND RIGHT$(COMMAND$,2)="RD" AND ROOM=17 AND DEAD=1 THEN LOCATE 21,2:PLAY"O1CC":PRINT"Your gun doesn't work!":RETURN
  460. 11312  IF GUN=1 AND BATTERY=1 AND RIGHT$(COMMAND$,2)="RD" AND ROOM=17 AND DEAD=1.5 THEN DEAD=2:GOTO 1800
  461. 11313  IF RIGHT$(COMMAND$,2)="IN" AND ROOM=18 THEN HIT=6:GOTO 61000
  462. 11320  IF SABER=1 AND RIGHT$(COMMAND$,2)="EN" AND ROOM=21 AND DEAD=2 THEN DEAD=2.5:LOCATE 21,2:PRINT"You hit him!":FOR I=1 TO 1000:NEXT I:RETURN
  463. 11321  IF SABER=1 AND RIGHT$(COMMAND$,2)="EN" AND ROOM=21 AND DEAD=2.5 THEN DEAD=2.75:LOCATE 21,2:PRINT"You hit him!":FOR I=1 TO 1000:NEXT I:RETURN
  464. 11322  IF SABER=1 AND RIGHT$(COMMAND$,2)="EN" AND ROOM=21 AND DEAD=2.75 THEN DEAD=3:GOTO 2200
  465. 11323  IF ROOMMATE=1 AND MID$(COMMAND$,6)=ROOMMATE$ THEN LOCATE 21,2:PRINT"Are you out of your GOURD?!?!":RETURN
  466. 11330  IF GUN=0 AND SABER=0 THEN LOCATE 21,2:PRINT"You have no weapon!":RETURN
  467. 11399  BEEP:LOCATE 21,2:PRINT"You can't kill that, at least not now!":RETURN
  468. 11400  CLS:PRINT"You are carrying:"
  469. 11410  PRINT
  470. 11420  IF DISK=1 THEN PRINT"Transporter Coordinate Disk"
  471. 11430  IF LAMP=1 THEN PRINT"Lamp"
  472. 11440  IF FOOD=1 THEN PRINT"Food"
  473. 11450  IF CODE=1 THEN PRINT"Transporter Access Code"
  474. 11460  IF ROOMMATE=1 THEN PRINTROOMMATE$
  475. 11470  IF GUN=1 THEN PRINT"Laser Gun"
  476. 11480  IF BATTERY=1 THEN PRINT"Laser Battery"
  477. 11490  IF BRIDGE=1 THEN PRINT"Bridge Key"
  478. 11491  IF SABER=1 THEN PRINT"Light Saber"
  479. 11492  IF CARD=1 THEN PRINT"Cardlock Card"
  480. 11493  IF DISK=0 AND LAMP=0 AND FOOD<>1 AND CODE=0 AND ROOMMATE=0 AND GUN=0 AND BATTERY=0 AND BRIDGE=0 AND SABER=0 AND CARD=0 THEN PRINT"Nothing"
  481. 11494  PRINT:PRINT"Hit any key>"
  482. 11495  A$=INKEY$:IF A$="" THEN 11495
  483. 11496  CLS:PUT(8,8),SCR,PSET:RETURN
  484. 11500  IF RIGHT$(COMMAND$,4)="FOOD" AND FOOD=1 THEN FOOD=2:NEEDTOGO=1:EATEN=1:LOCATE 21,2:PRINT"You feel stronger!":RETURN
  485. 11510  IF MID$(COMMAND$,5)=ROOMMATE$ THEN LOCATE 21,2:PRINT"That's gross!":RETURN
  486. 11599  BEEP:LOCATE 21,2:PRINT"You can't eat that, at least not now!":RETURN
  487. 50000  CLS
  488. 50010  PRINT"List of commands:"
  489. 50020  PRINT
  490. 50030  PRINT" LOOK"
  491. 50040  PRINT" GET"
  492. 50050  PRINT" DROP"
  493. 50060  PRINT" USE"
  494. 50070  PRINT" QUIT"
  495. 50080  PRINT" I or INVENTORY"
  496. 50090  PRINT" N or NORTH"
  497. 50100  PRINT" S or SOUTH"
  498. 50110  PRINT" W or WEST"
  499. 50120  PRINT" E or EAST"
  500. 50121  PRINT" U or UP"
  501. 50122  PRINT" D or DOWN"
  502. 50130  PRINT" EAT"
  503. 50140  PRINT" KILL"
  504. 50150  PRINT
  505. 50160  PRINT"NOTE: There are interesting responses"
  506. 50170  PRINT"to certain words or phrases that are"
  507. 50180  PRINT"not listed here.  Those words and "
  508. 50190  PRINT"phrases don't start with N,S,W,E,U,or D.";
  509. 50191  PRINT:PRINT"Hit any key>"
  510. 50192  A$=INKEY$:IF A$="" THEN 50192
  511. 50193  CLS:PUT(8,8),SCR,PSET:RETURN
  512. 50999  END
  513. 56000  CLS
  514. 56010  PRINT"As you enter the transporter, you slowly";
  515. 56020  PRINT"decompose your molecules.  Suddenly"
  516. 56030  PRINT"you have to go to the bathroom and "
  517. 56040  PRINT"solid wastes begin to leave you rear."
  518. 56050  PRINT"Since your molecules are changing their"
  519. 56060  PRINT"composition, when you recompose them,"
  520. 56070  PRINT"you BLOW UP!"
  521. 56080  PRINT"***You have DIED!***"
  522. 56090  GOTO 62000
  523. 57000  CLS
  524. 57010  PRINT"As you enter the transporter, you slowly";
  525. 57020  PRINT"decompose and then recompose your "
  526. 57030  PRINT"molecules.  Before you know it, you're"
  527. 57040  PRINT"floating in outer space."
  528. 57050  PRINT"***You have DIED!***"
  529. 57060  GOTO 62000
  530. 58000  CLS
  531. 58010  LOCATE 16,1:PRINT"     You enter an extremely dark room."
  532. 58020  PRINT" You hear a breathing noise and then "
  533. 58030  PRINT" you feel incredibly hot... "
  534. 58040  PRINT" ***You have DIED!***"
  535. 58050  GOTO 62000
  536. 59000  CLS
  537. 59010  PRINT"As you enter the transporter, you slowly";
  538. 59020  PRINT"decompose and then recompose your "
  539. 59030  PRINT"molecules.  Before you know it, you're"
  540. 59040  PRINT"on the door step to your house.
  541. 59041  IF ROOMMATE=0 THEN 59100
  542. 59050  PRINT"    ";ROOMMATE$;" thanks you dearly for"
  543. 59060  PRINT"rescuing him/her.  You have completed"
  544. 59070  PRINT"the Quest in";MOVE;" moves."
  545. 59080  PRINT"The least amount of moves is 59"
  546. 59090  GOTO 62000
  547. 59100  PRINT"    You have returned to Earth pre-"
  548. 59110  PRINT"maturly for you left your roommate"
  549. 59120  PRINT"on board the space cruiser."
  550. 59130  PRINT"In the following years to come you miss"
  551. 59140  PRINT ROOMMATE$;" dearly."
  552. 59150  GOTO 62000
  553. 60000  PRINT"There are three buttons on the wall."
  554. 60010  PRINT:INPUT"Push which button (1,2,3)";A
  555. 60015  PLAY"O2L4A"
  556. 60020  ON A GOTO 400,500,800
  557. 61000  REM FIRE ROUTINE
  558. 61010  IF RND(1)*100>75 THEN BEEP:LOCATE 21,2:PRINT"He fired and Hit!                     ":HIT=HIT+1
  559. 61011  IF ROOM=18 THEN BEEP:LOCATE 21,2:PRINT"He fired and Hit!                     ":HIT=HIT+1
  560. 61020  IF HIT>4 THEN LOCATE 21,2:PRINT"***You have DIED!***                  ":GOTO 62000
  561. 61030  GOTO 10010
  562. 61100  REM FIRE ROUTINE
  563. 61110  IF RND(1)*100>25 THEN BEEP:LOCATE 21,2:PRINT"He fired and Hit!                     ":HIT=HIT+1
  564. 61111  IF ROOM=18 THEN BEEP:LOCATE 21,2:PRINT"He fired and Hit!                     ":HIT=HIT+1
  565. 61120  IF HIT>4 THEN LOCATE 21,2:PRINT"***You have DIED!***                  ":GOTO 62000
  566. 61130  GOTO 10010
  567. 62000  LOCATE 23,2:LINE INPUT">Play Again?                       ";A$
  568. 62010  IF A$="Y" THEN RUN
  569. 62020  IF A$="N" THEN CLS:END
  570. 62030  CLS:END
  571. 63000  CLS
  572. 63010  PRINT"     You start to go down the ladder "
  573. 63020  PRINT" when you feel a tug from behind."
  574. 63030  PRINT" Before you know it, you're approaching"
  575. 63040  PRINT" the tractor beam housing and then..."
  576. 63050  PRINT:PRINT" ***You have DIED!***"
  577. 63060  GOTO 62000
  578.